Private Sub txt˻_Change()

    lst.List = Filter(̸, txt˻.Text, True)
    lbl.Caption = " : " & lst.ListCount

End Sub